Unter Deinen Bedingungen sehe ich auch keine Alternative.
und anschließend nochmals, um das XML zu generieren.
Was meinst Du mit "anschließend nochmal"?
Die gefundenen Doks kannst Du doch z.B. in ein Array aus NotesDocuments stecken.
Also:
Dim docArray As Variant
...
If <Deine Bedingung> Then
docArray(DeinCounter) = doc
End If
Danach arbeitest Du dann das Array aus NotesDocuments (docArray) entsprechend ab.
In meinem Bsp. fehlt noch ein Redim. Wenn Dir vor der Ausführung der Schleife schon die Größe des Arrays bekannt ist, dann kannst Du es entsprechend dimmen, ansonsten musst Du wohl mit Redim Preserve arbeiten, was man halt eigentlich in Schleifen vermeiden sollte aus Performancegründen.