You still haven't said what you want to do with these found items, however the basic code to find them (omitting those you listed) is as follows, assuming that by 'Line' you mean 'Paragraph'
Sub Macro1()Dim oRng As Range
Const strFind As String = "Modelo:^t"
Set oRng = ActiveDocument.Range
With oRng.Find
Do While .Execute(FindText:=strFind)
oRng.Collapse 0
oRng.End = oRng.Paragraphs(1).Range.End - 1
If Not Left(oRng.Text, 9) = "IFC 100 W" Or _
Not Left(oRng.Text, 9) = "IFC 100 C" Or _
Not Left(oRng.Text, 9) = "IFC 070 C" Or _
Not Left(oRng.Text, 9) = "IFC 070 F" Or _
Not Left(oRng.Text, 9) = "IFC 050 C" Or _
Not Left(oRng.Text, 9) = "IFC 050 W" Or _
Not Left(oRng.Text, 13) = "Optiflux 2000" Or _
Not Left(oRng.Text, 5) = "V/Ref" Or _
Not Left(oRng.Text, 13) = "Optiflux 1000" Then
'do what you want with oRng here e.g.
MsgBox oRng.Text
End If
oRng.Collapse 0
Loop
End With
lbl_Exit:
Set oRng = Nothing
Exit Sub
End Sub