Take a look at the ?qqPlot function in the car package. This will plot a confidence band for you (you just have to tell it which distribution you are interested in).
library(car)
set.seed(9)
u_obs <- runif(100)
windows()
qqPlot(u_obs, distribution="unif")