loop with inserting cells

[gill389]

Hi, I'm trying to do a loop, which I have, but need some adjustments. The loop is to go down and whenever it finds 1324l it will insert a row in that column, pushing it to the right, about 3 times. What I have is

Sub test()

Range("b8").Select
If ActiveCell.Offset(0, 2) = "1324I" Then
Do
Selection.insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Offset = 1

End If

what this is doing is inserting in every row a cell and pushing it to the right 1. What I would like it to do is insert a cell ONLY when it finds 1324l, and I want it to insert 3 rows. Any help would be great!
thanks,