Zählen

Ich habe ein Programm geschrieben, daß immer nur 1 im Direktfenster ausgibt. Ich habe schon einen IntZähler eingebaut, aber ohne Funktion. Ich möchte aber gerne dass es immer einen höher zählt:

1
1 1
2 1
2 1 1
3 1 1
3 2 1
4 2 1

Mein Programm sieht so aus:
Sub Zähler()
For i = 0 To 7 Step 1
Application.Wait Now + TimeSerial(0, 0, 1)
If i = 1 Then IntZähler = IntZähler + 1
If i = 2 Then IntZähler1 = IntZähler1 + 1
If i = 4 Then IntZähler2 = IntZähler2 + 1
Debug.Print IntZähler, IntZähler1, IntZähler2
Next i
End Sub