A fast solution is to add some spaces before the word "first".
Since plotmath does not support newlines, you can use mtext to create your lines one by one like this:
plot(1,1)
exp <- 2
Lines <- list(bquote("first line"),bquote("second line x"^2))
mtext(do.call(expression, Lines),side=3,line=1:0)
