sentencia infinita

[ebu]

hola!
necesito repetir lo siguiente infinitas veces:

vChildComp = swComp.GetChildren 'una matriz q guarda varios objetos

For i = 0 To UBound(vChildComp)
Set swChildComp = vChildComp(i)
Set b = swChildComp.GetModelDoc

nombre b 'llamara a un procedimiento llamada nombre
Next i

hay alguna forma o existe algun for q se repita infinitas veces??
infinitas veces menos una si no se me quedaria bloqueado...
gracias!

p.d. he intentado esto:

vChildComp = swComp.GetChildren

For i = 0 To UBound(vChildComp)
Set swChildComp = vChildComp(i)
Set b = swChildComp.GetModelDoc

nombre b

vChildComp2 = swChildComp.GetChildren
If (vChildComp2 <> Empty) Then
esteproce swChildComp 'llama a este procedimiento. pero al llamarle denuevo se llenara el vChildComp y se perderan los datos q quedaban x ejecutar.como lo hago??
End If
Next i