VBA statement: do while

sub doWhileTest()

    dim i as integer
    
    i = 4
    do while i < 8
        debug.print "i = " & i
        i = i+1
    loop

end sub