Insert Entire Row wont stop

[nosense]

I have a code that suppose to insert entire row if 'IF' statement is fulfiled but it does insert multiple rows and wont stop until i stop running macro manualy.

Here is part of my code:

For i = 9 To 500
    If Cells(i, 6) = Sheets("Machining").Range("j10") And Cells(i, 12) = "As wound" Then Cells(i, 1).Select

    
    
   ActiveCell.Offset(1).EntireRow.Insert
   
   
    
    
    
                
    Next