Do you have any idea how to combine multiple lines with expression and atop? I Mean I use this:
library(Gmisc)
library(glue)
box <- boxGrob(expr(atop(bold("1. My First Step"), italic("This is a very long text that needs \n a line break"))))
This results in

