Visual Basic para Aplicaciones - Bucles Anidados

Hola! estoy teniendo un problema con unos bucles anidados.....solo queria saber si se puede poner sin problemas una instruccion "do while" dentro de un "for". El for corre perfectamente pero el "do while" soo se corre en la primera iteracion del for....hay algo q especificamente pueda etsar causando esto?
Gracias :)

¿Como tienes puesto el Do While ...?

el código que en verdad estoy desarrollando es mucho mas grande pero esta es la lógica de lo que tengo pero en versión más pequeña...pongo aleatoriamente un numero 5 en alguna fila de la columna A y lo que tiene que hacer es identificarlo y la cantidad de veces que corre tiene que poner hola en la fila 1(empezando desde B). Si ejecutan esta macro solo funciona para la primera hoja....pero luego ya no :( qué esta mal??

Sub mini()
For i = 1 To 5
contador = 0
Do While algo <> 5
algo = Sheets(i).Range("a1").Offset(contador, 0)
ActiveSheet.Range("b1").Offset(0, contador) = "hola"
contador = contador + 1
Loop
Next
End Sub