var %x 0 | var %file <yourfilehere>
while (%x < $lines($qt(%file))) {
inc %x
if ($read(%file,%x) == $nick)) {
<do whatever you want here>
}
}