cycle for

Hello, I just need solve one simple problem (which drive me mad )
so I have this code

    If Range("A3").Value <> "Draw" Then Range("A3").EntireRow.Insert Shift:=xlDown
    If Range("A6").Value <> "Draw" Then Range("A6").EntireRow.Insert Shift:=xlDown
    If Range("A9").Value <> "Draw" Then Range("A9").EntireRow.Insert Shift:=xlDown
    If Range("A12").Value <> "Draw" Then Range("A12").EntireRow.Insert Shift:=xlDown

and I need to do it with command FOR, I try to do it but :

        For lngRow2 = 0 To 500 Step 3
              
                  If Range("A" & lngRow2).Value <> "Draw" Then
                    Range("A" & lngRow2).EntireRow.Insert Shift:=xlDown
                  End If
        Next

and there is some error (where?)

or

        For lngRow2 = 0 To 500
            
                  If Range("A" & lngRow2 + 3).Value <> "Draw" Then Range("A" & lngRow2).EntireRow.Insert Shift:=xlDown
        Next

but lngrow2 doesnt have +3 each cycle, only +1 ...

Anyone could help me, please?